UC知道vb图片改变`
来源：百度知道 编辑：UC知道 时间：2024/06/15 05:33:09
随机出一组数，当有6时 出现一幅图片
没有就出现另一幅
为什么我只能出现一幅
图片路径都没错阿
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
If x = 6 Or y = 6 Or z = 6 Then
Image1.Picture = LoadPicture("d:\1.bmp")
End If
If x <> 6 Or y <> 6 Or z <> 6 Then
Image1.Picture = LoadPicture("e:\5.bmp")
End If
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Randomize
x = Int(Rnd * 9 - 1 + 1) + 1
y = Int(Rnd * 9 - 1 + 1) + 1
z = Int(Rnd * 9 - 1 + 1) + 1
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
没有就出现另一幅
为什么我只能出现一幅
图片路径都没错阿
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
If x = 6 Or y = 6 Or z = 6 Then
Image1.Picture = LoadPicture("d:\1.bmp")
End If
If x <> 6 Or y <> 6 Or z <> 6 Then
Image1.Picture = LoadPicture("e:\5.bmp")
End If
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Randomize
x = Int(Rnd * 9 - 1 + 1) + 1
y = Int(Rnd * 9 - 1 + 1) + 1
z = Int(Rnd * 9 - 1 + 1) + 1
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
你的三个Dim语句全放在了Private Sub Timer1_Timer() 中作为局部变量，当单击Command2即Private Sub Command2_Click() 执行时，已定义的X在此过程中不管用，X永远等于0，当然只显示一幅图了。
你的代码？